home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_381_4 corners code.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  2.1 KB  |  65 lines
  1. global gMasterData
  2.  
  3. on goCorners
  4.   go(label("4corners"))
  5.   setUserArea(gMasterData, #fourCorners)
  6. end
  7.  
  8. on cornersAudio
  9.   global gMasterData
  10.   goNarrator(gMasterData, "21")
  11. end
  12.  
  13. on exitCorners
  14.   global checkMarks1
  15.   preloadMember(member "flyaway1", "flyaway.aif")
  16.   go("butterfly")
  17.   puppetSound("flyaway.aif")
  18.   if getaProp(checkMarks1, #fourCorners) = 0 then
  19.     setaProp(checkMarks1, #fourCorners, 1)
  20.   end if
  21. end
  22.  
  23. on purgeFlyaway
  24.   unloadMember(member "flyaway1", "flyaway.aif")
  25. end
  26.  
  27. on setCornersData
  28.   global gCorner1, gCorner2, gCorner3, gCorner4
  29.   if voidp(gCorner1) then
  30.     set the text of member "corner 1" to EMPTY
  31.   else
  32.     set the text of member "corner 1" to gCorner1
  33.     set the textFont of member "corner 1" to "Times"
  34.   end if
  35.   if voidp(gCorner2) then
  36.     set the text of member "corner 2" to EMPTY
  37.   else
  38.     set the text of member "corner 2" to gCorner2
  39.     set the textFont of member "corner 2" to "Times"
  40.   end if
  41.   if voidp(gCorner3) then
  42.     set the text of member "corner 3" to EMPTY
  43.   else
  44.     set the text of member "corner 3" to gCorner3
  45.     set the textFont of member "corner 3" to "Times"
  46.   end if
  47.   if voidp(gCorner4) then
  48.     set the text of member "corner 4" to EMPTY
  49.   else
  50.     set the text of member "corner 4" to gCorner4
  51.     set the textFont of member "corner 4" to "Times"
  52.   end if
  53. end
  54.  
  55. on gather4Corners
  56.   global gCorner1, gCorner2, gCorner3, gCorner4
  57.   set vTempText to EMPTY
  58.   put "Change in Four Corners is a summary of your responses in the Self-Assessment Section:" & RETURN & RETURN after vTempText
  59.   put "My most frequently used style for dealing with change is:" && gCorner1 & RETURN & RETURN after vTempText
  60.   put "My Change History shows that I have dealt with change in the past in this way:" && gCorner2 & RETURN & RETURN after vTempText
  61.   put "I registered the following on my" && QUOTE & "Reaction to Change" & QUOTE && "meter:" && gCorner3 & RETURN & RETURN after vTempText
  62.   put "I consider three of my most powerful personal resources for dealing with change to be:" && gCorner4 & RETURN & RETURN after vTempText
  63.   set the text of member "4CornersAnswers" to vTempText
  64. end
  65.